#-*-perl-*-
use Test::More qw(no_plan);
use strict;
use warnings;
use lib '../lib';

use_ok 'AlienArena::Server::Player';
my $player = AlienArena::Server::Player->new('Xlub');
isa_ok $player, 'AlienArena::Server::Player';
is $player->name, 'Xlub', 'name field';
$player->ip('127.0.0.1');
is $player->ip, '127.0.0.1', 'ip field';
ok !$player->is_playing, 'not playing';
$player->_is_playing(1);
ok $player->is_playing, 'is playing';
$player->_score(30);
is $player->score, 30, 'score field';
